Top 10k strings from Specta Draw 2 (1983)(Bryan S. McAlley)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 Update form
4 (f(t2)/256
4 (f(t1)/256
3 fh=f(t1)-(
3 fa=f(t2)-(
3 "databaser"
3 "databasem"
3 "databasef"
2 team O.K.?
2 t2=mx-(t1*1000
2 r(fh,fa)=q+257
2 r(fh,fa)=q+1
2 q=r(fh,fa):
2 mx=m(i,j,1
2 c1=m(j,k,2
2 Match code
2 Extract current form
2 ;"PRESS ANY KEY WHEN READY."
2 ;"PRESS ANY KEY TO CONTINUE"
2 ;"HOW MANY RESULTS DO YOU NEED? (Maximum 30)":
2 ;"DO NOT STOP TAPE - DATABASE LOADING":
2 ;" "
2
1 z9=r(fh,fa):
1 splay a division
1 spectadrawzi
1 print data
1 pos=t1-mid+1
1 pos=t1-(y(x))+2
1 pos2=t2-mid+1
1 pos2=t2-(y(x))+2
1 pos2,lin2;"
1 p=r(fh,fa):
1 p=((p4*(p1/p2))+p3/4
1 p2=p-(p1*256
1 mx=m(a,b,1
1 mid=(y(x)+
1 m2=mx-m1*1000
1 fh=f(m1)-((
1 fa=f(m2)-((
1 f;" ";"f(";f;")= ";f(f)
1 f(tm)=fn*256
1 f(t2)=f(t2)-fa+(fa-(fy*7
1 f(t1)=f(t1)-fh+(fh-((fx*7
1 f(m2)=f(m2)-fa+(fa-(fy*7
1 f(m1)=f(m1)-fh+(fh-((fx*7
1 extract current form
1 d$(i);" ";i
1 Update prob'y
1 UNLIKELY DRAWS
1 Title Routine
1 Third Division
1 The values in the next line control the program's sensitivity to league position etc.
1 Teams form
1 Subroutine used for creating data base
1 Set up team performance record
1 Set up league position records
1 Select option
1 Select division
1 Select a division
1 Second Division
1 Scottish Premier Division
1 Scottish First Division
1 Save database
1 Sample size
1 Relative league posn.
1 Read data tape
1 Prob. display
1 Print data
1 Print Div'n
1 Predict results
1 P(ostponed))":
1 Output the likely draws
1 Number of teams
1 Next Div'n
1 Main controlling segment
1 Latest results
1 Initialisation Subroutine
1 Fourth Division
1 First Division Second Division Third Division Fourth Division Scottish Premier Division Scottish First Division
1 First Division
1 Finished division?
1 Find and mark lowest prob.
1 Find and mark highest prob.
1 Final prob.
1 Division Names
1 Display output
1 Dispay division
1 Data for team lists
1 Data base cell full?
1 Created with Ramsoft MakeTZX
1 Create Match List
1 Clear from record
1 Clear flag
1 Arsenal Aston Villa B/ham City Coventry Everton Ipswich Leicester Liverpool Luton Man United Norwich Notts Co. Notts ForestQ.P.R. Southampton Stoke Sunderland Tottenham Watford W.B.A. West Ham Wolves Barnsley Blackburn Brighton Cambridge Cardiff Carlisle Charlton Chelsea C.Palace Derby Fulham Grimsby HuddersfieldLeeds Man.City Middlesbro Newcastle Oldham Portsmouth Sheffield WeShrewsbury Swansea Bolton Bournemouth Bradford C. Brentford Bristol Rov.Burnley Exeter Gillingham Hull Lincoln Millwall Newport Orient Oxford Plymouth Port Vale Preston Rotherham Scunthorpe Sheffield UtSouthend Walsall Wigan Wimbledon Aldershot Blackpool Bristol C. Bury Chester ChesterfieldColchester Crewe Darlington Doncaster Halifax Hartlepool Hereford Mansfield Northampton PeterboroughReading Ro
1 ;y(x)+e;" ";t$(y(x)+e);
1 ;y(x)+e+nd;" ";t$(y(x)+e+nd)
1 ;t$(m1);" Vs ";t$(m2);
1 ;t$(j);"?"
1 ;i;".";t$(t1);" Vs ";t$(t2):
1 ;;"ENTER (1,2,X
1 ;"________________________________";
1 ;"WHICH DIVISION?"
1 ;"Team No.? ";
1 ;"Team No.";
1 ;"THE POOLS PREDICTION PROGRAM FORTHE 48K ZX SPECTRUM"
1 ;"THE ";res;" MOST LIKELY DRAWS"
1 ;"THE ";res;" LEAST LIKELY DRAWS"
1 ;"START TAPE WHEN READY"
1 ;"SPECTADRAW 2":
1 ;"SET UP TAPE - ":
1 ;"SELECT OPTION"
1 ;"SELECT DIVISION":
1 ;"SAVING DATABASE":
1 ;"Result(1,2
1 ;"RESULTS FOR :";
1 ;"Prepare to load database tape-":
1 ;"Penultimate match?"
1 ;"Penultimate match";
1 ;"PROGRAM SHUTDOWN":
1 ;"PREPARE TO VERIFY DATABASE - ";
1 ;"PREDICTING RESULTS":
1 ;"POSITION WITHIN DIVISION - TOP QUARTER(1),MIDDLE HALF(2)OR BOTTOM QUARTER(3)?":
1 ;"Next Division?(y/n)"
1 ;"MOST LIKELY DRAWS:"
1 ;"Last match?"
1 ;"Last match";
1 ;"LEAST LIKELY DRAWS:"
1 ;"IS THIS CORRECT ?(y/n)"
1 ;"HW=0 HD=1 HL=2 AW=3 AD=4 AL=5"
1 ;"ENTER HOME, AWAY TEAMS.":
1 ;"ENTER HOME AWAY TEAMS.":
1 ;",BASED ON ";nm;" MATCHES)":
1 ;"(Either =200 to repeat Division. 300+ for next Division.)"
1 ;" ";d$(i)
1 ;" VERIFYING DATABASE ";
1 ;" DO NOT STOP TAPE ";
1 ;" "
1 ;" ":
1 ;" ";
1 ;" "
1 ;" ":
1 ;" "
1 ,"Bolton","Bournemouth","Bradford C.","Brentford","Bristol Rov.","Burnley","Exeter","Gillingham","Hull","Lincoln","Millwall","Newport","Orient","Oxford","Plymouth","Port Vale","Preston","Rotherham","Scunthorpe","Sheffield Utd.","Southend","Walsall","Wigan","Wimbledon"
1 ,"Barnsley","Blackburn","Brighton","Cambridge","Cardiff","Carlisle","Charlton","Chelsea","C.Palace","Derby","Fulham","Grimsby","Huddersfield","Leeds","Man.City","Middlesbro","Newcastle","Oldham","Portsmouth","Sheffield Wed.","Shrewsbury","Swansea"
1 ,"Arsenal","Aston Villa","B/ham City","Coventry","Everton","Ipswich","Leicester","Liverpool","Luton","Man United","Norwich","Notts Co.","Notts Forest","Q.P.R.","Southampton","Stoke","Sunderland","Tottenham","Watford","W.B.A.","West Ham","Wolves"
1 ,"Aldershot","Blackpool","Bristol C.","Bury","Chester","Chesterfield","Colchester","Crewe","Darlington","Doncaster","Halifax","Hartlepool","Hereford","Mansfield","Northampton","Peterborough","Reading","Rochdale","Stockport","Swindon","Torquay","Tranmere","Wrexham","York"
1 ,"Airdrie","Alloa","Ayr","Brechin","Clyde","Clydebank","Dumbarton","Falkirk","Hamilton","Kilmarnock","Meadowbank","Morton","Partick","Raith Rovers"
1 ,"Aberdeen","Celtic","Dundee","Dundee Utd.","Hearts","Hibs","Motherwell","Rangers","St. Mirren","St. Johnstone"
1 +(fm-fn*256
1 )=p*q(lb+3
1 (f(tm))/256
1 (f(m2)/256
1 (f(m1)/256
1 (-p2/kw)/2
1 ((z(x)-y(x))/2
1 "spectadraw"
1 "r(";h;",";f;")=";r(h,f)
1 "m(";f;",";g;",";i;")=";m(f,g,i)
1 "Set up team performance rec'ds-2":
1 "Set up league position records-1":
1 "Save data base on cassette -6":
1 "Predict next week's draws -5":
1 "Input most recent results -3":
1 "First Division","Second Division","Third Division","Fourth Division","Scottish Premier Division","Scottish First Division"
1 "Finish -9":
1 "Create the data base -7":
1 "Create match list -4":
1 "(Either >300 for next Div.)"
1 "(999 to stop. 888 for new divn.)":
1 B.S.McALLEY
1 B.S. McALLEY 1983"
1 SPECTADRAW 2
1 1983